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!$OMP PARALLEL PRIVATE (X) 
X=< PER-THREAD VALUE> 



1 
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!$OMP SINGLE 
X=( VALUE-SINGLE) 
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!$OMP END SINGLE 
COPY PRIVATE (X) 



r 
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FIG. 3 



CP 

s .. 

Pi 




REAL Q(50) 

integer nprocs, id, signale 

integer omp jetjnaxjhreads, omp jetjhreadjum 




nprocs = 


ompjetjnaxjhreads Q 










!$omp parrallel private(g,q,t,r,id) shared(single) 

id= omp get thread numO 

doi=1,50 

q(i) = -id*2 
end do 
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! $omp single 

single = omp get thread numO 
do 1=1,50 

q(i) = -75.0 
end do 
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!$omp end single COPYPRIVATE (q) 
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call function (q) 


r 






r 




413 




! $omp end parallel 
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SUBROUTINE PKMAIN_ (KMPVJNTH, SINGLE_17_SH ) 



EXTERNAL PHMAIN_ 
INTEGER 112 

STRUCTURE CORRECT CPR1 
INTEGERS FO 
INTEGERS LBJOJ 
INTEGERS UBJOJ 
END STRUCTURE 

RECORD jCPRI CPR1 
KMPV GTID = MPPTID Q 
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FIG. 5A 
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IF(MPPF0A1 IT. 0) MPPF0D1(MPPI0A (1),KMPA_GTID) = %L0C ( 
SINGLE _17_SH) 

CM! PARALLEL PRIVATE (G,QJ,RJD,I) SHARED (SINGLE) 
ID_17_PR = OMP GET THREADJUMO 
DOI_17_PR=1,50 
Q_17_PR(I_17_PR) = ID_17_PR*2 
END DO 
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IF (MPTESP (KMPV_GTID,0) .NE. 0) THEN 
SINGLE _17_SH = OMP_GET_THREAD_NUM0 
DOI_17_PR = 1-50 
DOI_17_PR(l_17-PR) =-15.0 
END DO 



CALL MPTXSP (KMPVJTID.O) 

112=1 

END IF 
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CPR1.F0 = %LOC (Q_17_PR(1)) 
CPR1.LBJ0J = 1 
CPR1.UB FO 1 = 50 
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CALL MPSCPR (KMPVJTID, KMPVJ2J.0CJ6,CPR1fHMAINJI2pj^' 
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FIG. 5B 
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COPY DESCRIPTOR 
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START 



SUBROUTINE PHMAIN_ ( CPR1, CPR2) 
STRUCTURE ICPRI 
INTEGER*8F0 
INTEGER*4 LB_F0_1 
INTEGERS UBJOJ 
END STRUCTURE 
RECORD ICPRI CPR1 
RECORD ICPRI CPR2 
REALRR1(*),RR2(*) 
INTEGER*8 PP1, PP2 
POINTER (PP1.RR1) 
POINTER (PP2,RR2) 
INTEGER 111 
PP2 = CPR2.F0 
PP1 = CPR1.F0 
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DO 111 = 1,CPR1.UB_F0_1-CPR21B_F0_1+ 1 
RR1(II1)=RR2(II1) 

END DO 
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